home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / rbbs / pgvw174.zip / RSB3CHAT.MRG < prev    next >
Text File  |  1992-06-22  |  2KB  |  55 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB3.BAS to produce NEW\RSB3CHAT.BAS
  3. * RBBSSUB3.BAS:  Date 6-20-1992  Size 129071 bytes
  4. * ------------[ Created 06-22-1992 11:36:13 ]------------
  5. * REPLACING old line(s) by new
  6. 32000 IF NOT ZLocalUser THEN _
  7.          CALL SkipLine (1) : _
  8.          CALL QuickTPut1 ("Sysop exiting to DOS. Please wait...") : _
  9.          ZFunctionKey = 0 : _
  10. * ------[ first line different ]------
  11.      CALL DelayTime (3)
  12.       CALL ViewStat ("I")                                            ' DR062201
  13.       CALL ShellExit (ZDiskForDos$ + "COMMAND")
  14.       'SHELL ZDiskForDos$ + _
  15.       '      "COMMAND"
  16.       CLS
  17.       IF NOT ZLocalUser THEN _
  18.          CALL Carrier : _
  19.          IF ZSubParm = -1 THEN _
  20.             GOTO 33970
  21.       ZSubParm = 2
  22.       CALL Line25
  23.       CALL ViewStat ("A")                                            ' DR062201
  24.       CALL QuickTPut1 ("Sysop back from DOS.  Returning control to you.")
  25.       ZCommPortStack$ = ZCarriageReturn$
  26.       GOTO 33970
  27. '
  28. '
  29. ' * F3 - COMMAND FROM LOCAL KEYBOARD (Printer Toggle)
  30. '
  31. '
  32. * REPLACING old line(s) by new
  33. 33160 CALL UpdtCalr ("Sysop began chat",1)
  34. * ------[ first line different ]------
  35.       CALL ViewStat ("E")                                            ' DR062201
  36.       ZPageStatus$ = ""
  37.       CALL SkipLine (1)
  38.       CALL QuickTPut1 ("Hi " + _
  39.            ZFirstName$ + _
  40.            ", this is " + _
  41.            ZSysopFirstName$ + _
  42.            " " + _
  43.            ZSysopLastName$ + _
  44.            "  Sorry to break in to CHAT but..")
  45.       CALL TimeBack (1)
  46.       CALL SysopChat
  47.       CALL TimeBack (2)
  48.       ZCommPortStack$ = CHR$(13)
  49.       GOTO 33155
  50. '
  51. '
  52. ' * UP / CTRL-UP: INCREASE THE ON-LINE USER'S SECURITY BY ONE / FIVE
  53. '
  54. '
  55.